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Weather has always been a fascination for both young 
and old alike. There is an inherent interest in using the 
current weather conditions to predict the upcoming weather. 
Studying local weather conditions is of great interest to 
students because it affects their outside activities. 
Strong storms and fair weather can often be '*seen'* coming 
and the effects can be followed if one has access to 
weather data. 

It is usually not difficult to have student volunteers 
manually record the weather conditions during the school 
day. Unfortunately, when using this method data is not 
collected during non-school hours. The automated 
collection system presented here collects and presents 
weather data continuously and saves the current weather 
conditions hourly. With little effort students a^e able to 
follow weather patterns for weeks at a time. 

This article discusses the development of an 
inexpensive computer — interfaced classroom weather station 
using an Apple lie computer which provides the viewer with 
up to the minute digital readings of inside and outside 
temperature, barometric pressure, humidity, precipitation, 
and daily high and low temperatures. (See Figure 1). An 
animated wind vane and digital wind speed reading are 
updated approximately 12 times a minute. The barometric 
pressure is graphed for the past 24 hours and is updated 
every 20 minutes. Weather conditions are saved to disk 
every hour for future study. 

The hardware needed includes several sensor kits, a 
no-slot clock chip, a disk drive, an Apple He, and a few 
miscellaneous electronic and hardware components. The 
total cost of the system was under U400 including the cost 
of the clock chip. Software for the system includes a 
BASIC program written in Applesoft BASIC DOS 3.3 format 
from the author and machine language programs which come 
with the instruction books for the sensor kits. A parts 
list is inc luded in Tab le 1 . 

The system uses the 9-pin gameport on the back of the 
Apple lie computer for input from the interface devices. 
This port has four paddle inputs which can measure 
resistance:, three switch inputs which sense voltage 
changes, a +5 volt source, and ground. Discussions of this 
port are numerous in the literature. 

The seven sensors used measure temperature (2 needed), 
humidity, barometric pressure, wind speed, wind direction, 
and precipitation. The barometric pressure sensor and 
anemometer (wind speed) produce a voltage signal which is 
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difficult to be measured cheaply. By using an inexpensive 
voltage to frequency converter to indirectly monitor the 
voltage output of these two devices the computer can 
produce usab le resu Its. 

A guide to building the IC temperature probe circuits, 
humidity meter, and two voltage monitors needed are 
available from Vernier Software and described in How to 
Build a Better nOUSETRftP and 13 Other Science Projects 
Using the Apple II by David Vernier. A guide to building 
the barometer is in CHAOS in the Laboratory and 13 Other 
Science Projects Using the Apple II edited by David 
Vernier. These books also include disks with the software 
necessary to test , ca 1 ibrate, and operate the sensors in 
conjunction with the author's main program. Remember to 
work from backups of the disks, not the originals'. 

CREATING A WORKING WEATHER DISK 

The WEATHER disk (from the author) contains the main 
program , ca 1 ibra tion f i les , and sever a 1 prog rams that are 
used to create and read data files. Machine language 
programs, however, are also needed from the MOUSETRAP and 
CHAOS disks, and the clock chip disk. Some of these files 
need to be moved in memory 1 oc at ions and rewr i t ten by 
running the file called CREATER on the WEATHER disk which 
will load programs from the MOUSETRAP and CHAOS disks and 
save them to the WEATHER disk. Begin by using appropriate 
software to copy the VIU.READ file from the CHAOS disk onto 
the working MOUSETRAP disk. (This requires software that 
can copy from PRODOS to DOS 3.3 such as COPYIIPC or 
PRODOSMASTER) . 

Insert the WEATHER disk and run the CREATER program 
from the WEATHER disk and follow its instructions by 
inserting the WEATHER disk and typing: 

RUN CREATER < <RETURN> > 

The data files for the weather data need to be created 
in the following manner. The WEATHER disk is inserted and 
the program CREATE MONTHLYDATA is run by typing: 

RUN CREATE MONTHLYDATA <<RETURN>> 

The program will count to approK ima te 1 y 1100. This program 
creates the file that contains the hourly data readings for 
the month. This file is long enough to last 44 days. 

Next, run the program CREATE HIGHLOW. DAILY by typing: 
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RUN CREATE HIGHLOW. DAILY 



<<RETURN>> 



This program will count to 44. This program creates a file 
that will contain the daily high and low temperature 
readings and is long enough to last 44 days. 

NOTEll Each month the MONTHLYDATA c>.nd HIGHLOW. DAILY 
files need to be recreated. First, however, you either 
need to copy the data files to a different dick or make a 
copy of the disk and then recreate each data file. In thir> 
way you can have continuing records of the weather. If you 
wish to view the weather data records run the READ 
MONTHLYDATA and READ H IGHLOW . DA ILY files. 

The clock chip is inserted in the computer fallowing 
its instructions and the time of day set using its 
so f t ware . The machine 1 anguage program for reading the 
clock chip needs to be copied onto the WEATHER disk. 
Again p using appropriate software copy the READ. TIME file 
from the clock chip disk onto the working WEATHER disk. 
(If a chip other than the SMT clock chip were used, make 
sure the chip's machine language program is loaded at 
A1i260, the call statement is at A*300 , and the name of the 
file is READ. TIME to allow for proper operation). 

If you CATALOG the WEATHER disk by typing: 



you should see the following programs listed on your disk 
(although maybe in different order). 



With this part of the preparation out of the way, it 
is now time to build and test the individual components. 



CATALOG 



<<RETURN>> 



A 
B 
A 
A 
A 
T 
B 
B 
B 
B 
A 
T 
A 
T 
A 



002 
010 
002 
003 
003 
002 
003 
002 
005 
002 
003 
010 
003 
209 
049 



HELLO 
SYMBOLS 

READ HIGHLOW. DAILY 

CREATE MONTHLYDATA 

CREATE HIGHLOW. DAILY 

TEMP.CAL.2 

READ. TIME 

VIU8000.READ 

FREQ.PBi 

PDL8060. CHECK 

READ MONTHDATA 

HIGHLOW. DAILY 

GREATER 

MONTHLYDATA 

WEATHER 
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ASSEMBLING AND TESTING THE SENSORS 



Calibration of the individual components can be easily 
done as each sensor is built. This can be aided by making 
test wires by taking pieces of 22 gauge wire and stripping 
the ends about 3/8" , On one end of each wire melt some 
solder to stiffen the stripped end. Place an alligator 
clip on the other end of each wire. These wires will be 
easier to use if they are of di f f erent colors- The 
soldered end of the wires can now be gently inserted into 
the socket of the gameport on the back of the computer. 
Calibrations need to be done on the same computer which 
will be running the WEATHER STATION! 

TEMPERATURE PROBES 

The easiest solution to building these sensors is to 
buy two premade probes (#TPP) from Vernier Software and 
buiid the interface circuit as described on page 6-9 in 
MOUSETRAP . The premade probes (#TPP) can plug directly 
into a jack (RS#274-279) added to the temperature sensor 
interface circuit. On the #TPP probe the tip of the plug 
is positive while the center of the plug is negative. 

Be sure to include the 220 ohm resistors as described 
in the project extension on page 6-9. It is important to 
use high quality capacitors to insure accuracy in 
measurements over the outside temperature range. The 
inside probe will use the PDLO line while the outside probe 
will use the PDLl line. 

When calibrating the temperature probes you can use 
the four cables with alligator clips. By studying the 
figure on page A-2 in MOUSETRAP you can determine which 
holes in the gameport ,-*cket to use. The two probes use 
PDLO, PDLl, *4-5V, and ground. Remember that the outside 
temperature probe will be placed about 20 feet outside so 
add enough cable between PDLl, and ground to simulate 

this distance. This will allow for a more accurate 
calibration of this probe. 

A good range for the calibration temperatures will be 
on each end of your area's temperature ranges i.e. OC to 
40C for the outside temperature probe and 15C to 30C for 
the inside temperature probe. The WEATHER program reports 
in Fahrenheit but the calibration is done with Celsius. 
Load the calibration program TEMP . SENSOR. 2 on *:he MOUSETRAP 
disk by typing: 

LOAD TEMP. SENSOR. 2 <<RETURN>> 
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Insert the WEATHER disk to modify and se:t the calibration 
values in the file? TEnP.CAL.2 by typing: 

RUN <<RETURN>> 

and following the instructions, Later^ the outside 
temperature sensor circuit will be located in Junction Box 
A in the shutter station while the inside temperature 
sensor circuit will be located in Junction Box* B, 

HUniDISTAT 

The humidity meter kit (#BHM-i6) is constructed as 
described in MOUSETRAP , The humidistat operates on the PBi 
sw i tch input line. The humid is tat is moun ted ou ts ide in 
Junction Box A located in the shutter station. 

#*NOTE — A problem arises with the use of the PBI input 
on the Apple He. If the input is above ^-2V on the FBI 
line when the Apple lie is turned on, the computer goes 
into and stays in a sel f -diagnostic mode. This problem can 
be circumvented by using a 45 second on-delay relay on the 
PBI line. The on-delay relay controls a 120v relay which 
connects the FBI input to the computer 45 seconds after 
startup avoiding the sel f-diagnostic mode (see Figure 2) . 
The on~delay relay comes with a resistor (already soldered 
in place) that provides for a IBO second delay. This 
resistor is replaced with a 1 Megohm resistor giving a 45 
second delay. The delay relay and the I20v relay are 
mounted inside the building in Junction Box B while the 
humidistat meter will be mounted outside in Junction Box A. 

**NOTE — If power outages are rare in your area, the 
on~delay relay and 120v relay are probably not necessary. 
Remember, however, that the computer will probably not 
restart after any power outage (including turning off and 
on the computer ) and the ensuing weather data will be lost 
until you restart your computer with the interface cable 
removed from the gameport. 

Load the the file HUMIDITY on the MOUSETRAP disk to 
calibrate the humidity meter. Remove the MOUSETRAP disk 
and replace it with the WEATHER disk. Normally, the 
HUMIDITY program uses the PB2 line so a program line must 
be changed in the HUMIDITY program to allow the computer to 
read the FBI line. This is accomplished by inserting the 
MOUSETRAP disk and typing: 

LOAD HUMIDITY <<RETURN>> 

150 PRINT D* "BLOAD FREQ .FBI , A*8300" <<RETURN> 
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List 150 to make sure the above was entered. 
LIST 150 <<RETURN>> 

Then type: 

RUN <<RETURN>> 

Since the humidity meter is to be placed outside, 
calibration can be accomplished by using the same length of 
cable used for the outside temperature probe. If possible, 
place the humidistat circuit outside and let it equilibrate 
for 5 to 10 minutes. Run the HUMIDITY program and check 
the humidity reading. If an airport, TV or radio station, 
or government weather station is nearby call for an 
accurate relative humidity reading . (If not , use or bui Id 
a wet-bulb/dry-bulb hygrometer as described on page 4-7 in 
MOUSETRAP ) . I f the humidity reading is not accurate 
enough, the value for C12 in line 260 of the HUMIDITY 
program needs to be changed. If you need lower humidity 
readings, increase the value of C12. The simplest way to 
reach the correct value is to use the "hit and miss" method 
until the proper humidity reading is reached. If line 260 
needs to be changed first type: 

LIST 260 <<RETURN>> 

Increase or decrease the value of C12 by re-entering the 
line and then RUN the program. This process is repeated 
un t i 1 an adequate reading for the humidity is reached . 
When the proper value for C12 is found, record it because 
this value needs to be entered into the WEATHER program to 
give accurate humidity readings. Insert the WEATHER disk 
and load the WEATHER program by typing : 

LOAD WEATHER <<RETURN>> 

LIST 730 <<RETURN>> 

Note that the variable is no longer called C12 in the 
WEATHER main program but is now called CO. You will now 
enter your recorded value into the WEATHER program. Type: 

730 CQ= XKK <<RETURN>> 

Your value should have been substituted for xxk. Now type: 

LIST 730 <<RETURN>> 

and make sure the line has your value en tered equa 1 to CO . 
Now the value is saved into the WEATHER program by typing: 
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SAVE WEATHER <<RETURN>> 



BAROMETER 

The barometer kit (#BAR-DIN) is built as described in 
CHADS , A voltage monitor («BVM~16) is required to 
interface the barometer with the computer. Instructions 
for building the voltage monitor are described in 
MOUSETRAP . The voltage monitor must be calibrated before 
attaching* it to the barometer sensor. The barometer sensor 
and its voltage monitor use the PB2 line. The barometer 
and its voltage monitor are mounted outside in Junction Box 
A located in the shutter station. 



ANEMOMETER 

The anemometer provides a linear voltage output 
according to the manufacturer. This voltage is measured by 
a second voltage monitor (#BVM-16). The anemometer uses 
the PBO input. As mentioned in MOUSETRAP , the PBO line is 
slightly different from the PBl and PB2 lines and the 
incoming signal needs to be amplified for proper 
sensitivity. This amplifier circuit can be simply added 
onto the voltage monitor circuit board and is described in 
Appendix J in MOUSETRAP . Calibration of the voltage 
monitor should take place after the amplifier circuit is in 
place. Because the voltage monitor is located on the PBO 
line, the VOLTAGE MONITOR calibration program needs to be 
changed to read this line as noted on page 6-5 of 
MOUSETRA P . The voltage monitor is mounted outside in 
Junction Box C, close to the anemometer if possible. Using 
a voltmeter, determine which line of the anemometer is 
positive and negative by gently spinning the anemometer. 
Mark them for proper attachment to the voltage monitor. 



WIND DIRECTION 

The wind direction is monitored by attaching a wind 
vane onto a conti ous turn lOOK ohm rheostat mounted 
inside 1.5" PVC pipe. This rheostat is connected in series 
with a 30K ohm resistor and fed into the PDL2 line which 
can read the resistance. In order to save the life of the 
rheostat, a strain relief was made from a bicycle hub and 
mounted onto PVC pipe (see Figure 3). The 30K ohm resistor 
is mounted in Junction Box C. 

One end of the bicycle hub where the spokes are 
attached is ground down until the spoke holes are no longer 
visible. This is most easily accomplished by using a 
grinding wheel after first removing the axle and bearings. 
Be sure to wear safety goggles and hold the hub with a 
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locking pliers while grinding it down I 1 1 Although simple, 
grinders can be very dangerous. 



A hole is cut into a 1.5" PVC endcap (cutting through 
the side wall) using a scroll saw. The hole should be 
large enough so the end of the hub with spoke holes can 
rest flatly on the endcap but not fall through. In order 
to get the endcap flexible enough to slip the hub through, 
the PVC endcap was submerged in a cup of water and 
microwaved on high for approximately 2 minutes ( time may 
vary). After the hub is through the endcap, small holes 
were drilled through eight of the spoke holes and the hub 
was secured to the endcap using 1 oops of n ic hrome wi re and 
twisting it until tight. The bearings were lightly 
greased, and the axle was reassembled so that a maximum of 
axle protrudes outside the top of the endcap while still 
allowing free movement. 

The rheostat case was wrapped with tape until it had a 
snug fit when inserted inside a six inch length of 1.5" 
PVC. With the rheostat again removed wire leads are 
connected onto the outer pins of the rheostat. (The leads 
will need to reach the location of Junction Box C), A 
short piece of flexible rubber tubing is pushed onto the 
rheostat shaft with the other end placed onto the axle at 
the bottom of the hub. The rheostat and endcap are 
inserted into the 6" length of pipe and glued with PVC 
cement. Be sure to dry fit the endcap first to assure 
sufficient free movement of the axle. A can lid of 
sufficient size is drilled and mounted onto the top of the 
hub to serve as a weather protector for the hub bearings. 

The wind vane was made from a 24 inch length of 3/4" 
PVC conduit, a piece of 1/8" plexiglas, and a 6" long 1/2'' 
stove bol t ( see Figure 4 ) . The stove bol t is used as a 
counterweight for the front end of the wind vane, A 10" 
long slot is made into the 3/4" conduit to receive the 
plexiglas >ane. Three holes are drilled through the 
conduit and plexiglas and it is secured with small nuts and 
bolts. . A hole is also dril led just in front of the 
plexiglas and secured with a nut and bolt to help keep the 
conduit from splitting from the stress. 

After heating the front end of the 3/4" conduit gently 
in a burner flame the stove bolt is inserted threads fir'st 
with slight pressure until a tight fit is obtained. After 
the center of gravity is found, a hole is drilled to fit 
the wind vane onto the bicycle hub. If the 3/4" PVC 
conduit is too large to fit the axle, it can be ground down 
slightly using the grinder. Using a 1.5" PVC coupling, the 
6" PVC pipe (bicycle hub, rheostat, and vane) is mounted 




onto a much longer piece of PVC conduit which will serve as 
a mast for the wind vane. The 30K ohm resistor is attached 
in series on the PDL2 line in Junction Box C. 

The calibration of the wind vane can be completed 
prior to its mounting on the roof or wall or afterwards. 
Since the rheostat is a continuous turn model from OK to 
lOOK there is a smal 1 area where the resistance is not 
measured before it returns to OK. This area Is located by 
attaching an ohmmeter and spinning the wind vane until the 
area is found which flue tua tes between zero and 100+K . The 
direc tion the front tip of the wind vane is pointing shou Id 
be marked on the 1.5" PVC at this location of 0 ohms. If 
the wind vane is to be mounted before calibration, make 
sure tliis mark is aimed due northeast (per later 
instructions ) . 

The computer determines wind direction by reading the 
value of the rheostat. Since eight wind directions are 
available, eight ranges of resistance need to be measured. 
These ranges can be measured by making an enlargement of 
Figure 5 out of cardboard. The hole in the center is so 
the 1.5" PVC pipe can slide inside. The lines are spaced 
22.5 degrees apart around the circle. For calibration, 
purposes, you are interested in the heavy black lines 
numbered 1~8. 

Because of a lack of sensitivity , the f luc tua tion 
point between 0-lOOK is pointed towards the blackened 
circle on the cardboard calibration aid (northeast). This 
area was chosen because in the author's area the wind least 
often blows from the northeast. 

At this point the 30K ohm resistor needs to be added 
in series with the rheostat in the wind vane circuit if it 
is not already in Junction Box C. This means the wind vane 
resistance should actually vary from 30K to 130K, This is 
done because the Apple lie gives more accurate readings 
above 30K for the range we are interested in. In order to 
determine the computer interpreted resistance readings for 
the PDL2 port , type in the fol lowing program after loading 



BASIC: 



NEW 
5 

10 
20 
30 
40 
RUN 



<<RETURN>> 



HOME <<RETURN>> 

X=PDL(2) <<RETURN>> 

VTAB 2:PRINT " 

VTAB 2:PRINT X 

GOTO 10 <<RETURN>> 



<<RETURN>> 



<<RETURN>> 



<<RETURN>> 



With the mark on the mast pointing towards the 
darkened circle on the cardboard calibration aid 
(northeast) turn the head of the weather vane arrow towards 
#1 on the aid and record the va lue wri tten on the screen . 
Do the same for the remaining points #2-8. 

These values will be substituted into the WEATHER 
program in program line #48. Each value for #1-8 will 
correspond to the I- value used in the program i.e. 1 is 
II, 2 is 12, etc. Place the WEATHER disk in the computer 
and load the WEATHER program by typing: 

LOAD WEATHER <<RETURN>> 

LIST 48 <<RETURN>> 

You need to retype program line number 48, setting your own 
values equal to the I- values. List the line to make sure 
you entered it correctly: 

LIST 48 <<RETURN>> 

Then : 

SAVE WEATHER <<RETURN>> 

If the calibration of the wind vane was done after it 
was mounted on the roof or wall you are finished with the 
wind vane. If it was calibrated unmounted it is very 
important that when it is mounted that the mark on the mast 
be pointing direc t ly northeast . Otherwise , your previous 
ca 1 ibra t ion efforts wi 1 1 be 1 os t . 

PRECIPITATION 

Precipitation is measured by using a 0.1" tipping 
bucket raingauge by RAINWISE. This gauge signals a 
555-based timing circuit which turns on an infrared-LED for 
approximately 10 seconds (for schematic of this circuit see 
Figure 6) . The in f rareci-LED signal is read by a 
phototransistor into the PDL3 line. The infrared-LED 
signal is activated for a time period of 10 seconds in 
order to assure that the WEATHER program has adequate time 
to respond to the momentary signal of the raingauge. The 
555-circuit is mounted inside the building in Junction Box 
B. 

PUTTING IT ALL TOGETHER 

After all of the components are tested they are ready 
to be mounted in a weather shelter. An adequate weather 
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collection shelter can be made from four shutters (see 
Figure 7) mounted in a grassy, unshaded area at least 20 
feet from a building on a five foot pole. The barometer 
and its voltage monitor, humidistat and its voltage 
monitor, and the outside temperature probe are mounted 
inside the weather shelter in Junction Box A (see Figure 
8). The barometer, temperature probe and its circuit, and 
humidistat can be mounted in Junction Boh A in the middle 
of the shutters. Many small holes are drilled in the 
Junction Box around the humidistat to al low for air 
movement. The barometer should also be open to the air. 
Likewise, the tip of the temperature probe needs to be out 
in the air. Cables are rur into the building from the 
weather shelter to Junction Box B- It is possible to use 
6-"Conductor cable and only run one line. 

The wind direction vane, rain gauge, and anemometer 
are mounted on the roof or side of the building extending 
above the roof line. It is important to get the anemometer 
and wind vane high enough to avoid roof effects on the true 
wind speed and direction. The lines of these devices are 
run into Junction Box C (see Figure 9) where the voltage 
monitor and 30K resistor are located. Six-conductor cable 
is again run to Junction Box B. 

The cables from June t ion Boxes A and C are run to 
Junction Box B (located inside) which contains the 
circuitry for the inside temperature probe and the 
circuitry for the rain gauge. In Junction Box B, all 
connections are also made to the 9-pin interface cable (see 
Figure 10) using a (RS#276-148) circuit board. The cable 
is then inserted into the gameport on the rear of the 
computer . 

The weather station is now ready to operate as an 
entire unit. Insert the WEATHER disk, turn on the 
computer , and begin enjoying the weather ! ! 
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RAINGAUGB 



ANEMOMETER 




CONTAINS: 

1) VOLTAGE MONITOR 

2) 30K RESISTOR 



BOX 

c 



CONTAINS: 

1) TEMPERATURE PROBE 
AND CIRCUIT 

2) RAINGAUGE CIRCUIT 

3) CONNECTIONS TO 
GAMBPORT CABLE 

4) DELAY RELAY AND 
120V RELAY (OPTIONAL) 



JUNC. 
BOX 

B 



CLASSROOM 



SHUTTER 
STATION 



CX»4PUTER 



CONTAINS. 

1) BAROMETER 

7) VOLTAGE MONITOR 

3) HUMID IS TAT 

4) TEMPERATURE 

PROBE AND CIRCUIT 



Figure 1. Weather Station. 
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Figure 2. Delay and 120 volt relay. 



18 



p 
t 
I 
I 
I 
f 
f 
I 
I 
I 
I 
I 
I 
I 
i 
I 
I 
I 




Figure 3. Wind vane strain relief. 
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Figure 6. SSS-Timing Circuit. 
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Figure 8. Junction Box A. 
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^ftBLE i. CCM^EPC.IAL SUPPLY LIST A(nJD SOLRCES 



If\BTRX:TION BOOKS 

CHAOS IN THE LABORATORY 

HOW TO BUILD A BETTER MOUSETR^^ 

TEMPERATURE SENSORS 

TEMPERATURE PROKS (TPP) 
RESISTORS 220 OHM 
CAPACITOR 4.7uF 

JACKSHDPEN CIRCUIT (RS#274-249) (PAIR) 

WIND VANE SENSOR 

BOURTvE RHEOSTAT (#6657S-1~104) 
RESISTOR 33h: OHM 

WIND SPEED SEJNSOR 
ANErOIETER 

^/OLTAGE MONITOR (BVM-16) 

BAROMETER SENSOR 

BAROMETER ( CBR-D I N ) 
^/OLTAGE MONITOR (BVM-16) 
TRfC^SISTOR (MSP2907 P^P) 
RESISTOR iCK OHM 

HUMIDISTAT SENSOR 

HUMIDITY METER (BHM-16) 
DELAY RELAY (OMNETICS MMS115Alxl80) 
RELAY 120^ DPDT (RS#275~217) 
RESISTOR irEiG OHM 

RAIN GAUGE SENSOR 

RAINWISE 0.1" RAIN GAUGE 

555 IC TIMER OIIP 

RESISTOR 3.9K OHM 

RESISTOR 150 OHM 

RESISTOR 1 MEG 0(-M 

RESISTOR lOK OHM 

CAPACITOR 10 uP (TWTl^^UM) 

CAPACITOR 0.01 uP (DISK CERAMIC) 

IR LED (RS#276-143) 

IR PHOTOTRANSISTOR (RS#276-145) 

CIRCUIT BOARD (RS#276-159) 

IC SOCKET 

MISC^LA^EOUS 

JUNCTION BOX (RS#270-224) 
JOYSTICK EXTENSION CABLE (GPE-9) 



mOUNT 



COST 



TOTAL 



1 
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SOURCE 
4 
4 



4 
5 
5 
5 



2 
5 



1 
4 



4 
4 

5 
5 



4 
3 
5 
5 



6 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 



5 
4 



SOURCES: 
ANEMOMETER 

VM TECH DISTRIBUTING 
DELTON, MICH. 49046 

RHEOSTAT 

nARSWLL INDUSTRIES 
9320 TELSTAR AVE 
EL MONTE, CA 91731 

DELAY RELAY 
HERBACH AND RADETWi 
18 CP^]AL STREET 
PO BOX 122 

BRISTOL, PA 19007-0122 

VERNIER SOPTVJARE 
2920 S.W. 89TH STREET 
P(DRTLAND, OR 97225 

RADIO SHACK' STORES 

RAINWISE 

PO BOX 443 

25 PEDERAL ST. 

B<2R H^BOR, r^INE 04609 



$339.71 



LIST 



WEATHER STATION 
BY MARK V. LORSON, 
2-19-93 



10 REM 
15 REM 
20 REM 

23 REM 

25 REM SET STANDARDS 
30 NORMAL 
35 HIMEM: 32512 
40 LOMEM: 27000 
45 MA = 1:MB = 1:MC = 1 
:GG = 1:HA = 1:HB = 
1 :LC = 1 :T6 = - 1 
JB = 1 
II =7:12=34:13=60 
A 

DIM P(80) 

DIM MT*(27): DIM MT(27) 
POKE 216,0 
: HOME 
CHR* ( 4 ) 
D* + "OPEN" :CL* 



PH.D. 



TEXT 



48 

50 
55 
60 
65 

70 D* = 
75 OP* = 
ITE' 
80 Z* = 
85 RTIO 
90 REM 



NA = 
1 :WA 
G7 = 



14 



iNB = 1 J 
1:WB = 
100:GS 

88: 15 = 



NC = 
1 :KA 



iPA = 
1 :KB 



200: VA 



1 :PB 
= 1 
: VB 



iKC 
= 1 



L :PC = 
= 1 :LA 
iVC = J 



= 1 
! JA 



PD = 
LB 



116:16 = 142.5:17 = 167.5:18 = 19 



D* + "CLOSE" :RD* 



D* 



"READ" :WR$ 



''WR 



"MONTHLYDATA* 
= 1 .00 



100 
105 
110 
115 

120 
125 
130 



135 



REM 



LOAD THE MACHINE LANGU 



REM LOAD MACHINE PROGRAMS 

PRINT D*;"BLOAD READ . T IME , A*260" 

PRINT D*;"BLOAD SYMBOLS , A*6000" 

PRINT D*;"BLOAD V I U8000 . READ , A$8000 " : 
AGE FREQUENCY MONITORING ROUTINE 

PRINT D*;"BLOAD FREQ . PBl , A*8300 " : REM 

POKE 252,2: POKE 253,0: POKE 206,151: 

PRINT D$;"BLOAD PDL8060 . CHECK , A*8060 " : 
D*;"READ TEMP.CAL.2": INPUT CI: INPUT Tl : INPUT C2: INPUT T2: INPUT 
C3: INPUT T3: INPUT C4: INPUT T4: PRINT D*;"CLOSE TemP.CAL,2" 



READ HUMIDISTAT 
POKE 238,1: POKE 235,0 
! PRINT D*;"OPEN TEMP.CAL.2"; 



PRINT 



(T2 - Tl) / (1 / C2 



SO = 
) 

REM 

REM SCREEN SETUP 
POKE 49168,0: SCALE= 
PRINT : PRINT 
210 AA = 120 
215 POKE 49168,0: 
S AT X,Y: NEXT 
POKE - 16302,0 
HPLOT 100,96 TO 100,190 
4: HPLOT 0,48 TO 278,48: 



1 / CI ) :S1 



(T4 



T3) / (1 / C4 



1 / c: 



140 

200 
205 



220 
225 



1: ROT= 0: HCOLOR= 3: POKE 232,0: POKE 233,96: 



PRINT D$; 
B 



HOME : HGR2 : FOR B = 1 TO AA : READ S,X,Y: DRAW 



HPLOT 0,24 TO 278,2 



226 
230 



233 
235 
240 



HPLOT 139,0 TO 139,96 
HPLOT 0,72 TO 278,72: HPLOT 0,96 TO 278,96 
HPLOT 0,0 TO 0,190 TO 278,190 TO 278,0 TO 0,0 
HPLOT 122,104 TO 122,184: HPLOT 120,104 TO 122,104 



122,184: HPLOT 120,124 TO 122,124: 
20, 164 TO 122, 164 

REM 

REM TIME CALL 

CALL 768,TM*:TM* = LEFT$ ( TM* , 1 1 



HPLOT 120,184 
HPLOT 120,144 TO 122,144: HPLOT 



TO 
1 



MID* (TM*,13,2) + 



RIGHT* (TM*,2):CD* = LEFT* 
TM* = + RIGHT* (TM*,16) 

245 T5* = MID* ( TM* , 10 , 2 ) : T6 = 
(KZ*) 

250 GOSUB 20005: GOSUB 21000 



(TM*,2) :CD 



VAL (CD*] 



IF CD < 10 THEN 



VAL (T5*):KZ* = MID* (TM*,4,2):KY = VAL 



28 



255 CALL 768,TM$:Tri* = LEFT* (TM$,11) + 



" + MID* (TM$,i3,2) + + 
RIGHT* (TM$,2):CD* = LEFT* (TM*,2)!CD = VAL (CD*) 
TM^ = + RIGHT* (TM$,i6) 



260 

270 
271 

272 
275 



280 
285 
300 
305 

310 

315 

320 
325 
330 
335 



340 
345 
350 
355 
360 
365 
370 
375 
380 
385 
390 
395 
400 
405 



410 
415 
420 
425 
430 
435 
440 

445 
450 
455 
460 
465 
470 
500 
505 
510 



IF CD < 10 THEN 



T5* = MID* (TM*,10,2) :T5 = VAL 
(T7*):KZ* = MID* (TM*,4,2)!KZ = 
IF T5 < > T6 THEN GOSUB 18000 
IF QR = 1 THEN MV = 0: IF KZ < 
200:T2* = TM*:R = 0:KY = KZ : GOSUB 
IF T7 < > T8 THEN MO = 0 : T8 = T7 
GOSUB 300: GOSUB 5000: GOSUB 700: GOSUB 5000 
: GOSUB 600: GOSUB 3000: FOR PL = 1 TO 10 
NEXT PL 
255 



( T5*) : T7* = 

VAL (KZ*) 
T6 = T5 
> KY THEN G7 
300: GOSUB 



MID* (TM*,2,1) :T7 = VAL 



- 100:T1* = TM*:G8 = 
900: GOSUB 5000 



GOSUB 
GOSUB 500; 



900: GOSUB 
GOSUB 800: 



5000 
GOSUB 



5000: 
GOTO 
REM 
REM 

V = 0 



DETERMINE TEMPERATURE 
FOR CC = 1 TO 5: CALL 32864 
5) - 96) * 256:V = V + CT : NEXT CC 
POKE 49168, 0:V = 0: FOR CC = 1 TO 
( PEEK (32975) - 96) * 256:V = V -4- 
PR = SO * (1 / CT - 1 / CI) ^ T1:PR = 
(1 / CZ - 1 / C3) + T3:PS = INT (PS 
FO = (1.8 * PR) + 32:F1 = (1.8 * PS) 
IF PR < 0 THEN R* = "N" 
R* = "Y" 

ABS ( INT (M ) ) :M1 = 
M3 = INT (M - (Ml * 



(32974) + ( PEEK (3297 



CT = PEEK 
CT = V / 5 

5: CALL 32890 :CZ = PEEK (32974) 
CZ : NEXT CC:CZ = V / 5 

INT (PR * 10) / 10:PS = SI * 
* 10) / 10 
^ 32: PR 



FO:PS = Fl 



IF PR > 0 THEN 
M = PR + .5:M = 
Ml * 100) / 10) 
M2 + 1 :M6 = M3 



INT (M 
100 + M2 



/ 100) :M2 = 
* 10) ) :M4 = 



INT ( (M - 
Ml + 1:M5 = 



IF M4 < 
IF M5 < 
IF M6 < 
HCOLOR= 
IF MA = 
DRAW MA 
DRAW MB 
HCOLOR= 
IF MA = 
DRAW MA 
DRAW MB 
IF PS < 
IF PS > 
N = PS ^ 
Nl * 100) 



1 
1 
1 
0 
1 

AT 
AT 



1 

OR M4 > 
OR M5 > 
OR M6 > 

IF S* = 
THEN 370 
40, 14 



10 
10 
10 



THEN 
THEN 
THEN 



M4 
M5 
M6 



"N" THEN 



= 1 
= 1 
= 1 
XY = 



52,14: DRAW 
3 : IF R* = "N" 
1 THEN 390 
AT 40,14 
AT 52,14: DRAW 
0 THEN U* = 
0 THEN U* = 
.5:N = ABS 
/ 10 ) :N3 = 



MC AT 64, 14; 
THEN XY = 0; 



MC AT 64, 14 

"N" 

( INT (N) ) :N1 = 
INT (N - (Nl ) 



DRAW 37 AT 28, 14 



S* = R*:MA = M4:MB = M5:MC = M6 
DRAW 37 AT 28, 14 



:N6 = 
< 1 



N2 + 1 
IF N4 
IF N5 < 
IF N6 < 
HCOLOR=: 
IF NA = 
DRAW NA 
DRAW NB 

6 

HCOLOR= 
. IF NA = 
DRAW NA 
DRAW NB 
RETURN 

REM 

REM WIND 
CB = PDL 
IF CB < 



: N3 + 
OR N4 
OR N5 
OR N6 



1 
1 

0: IF V* = 
1 THEN 440 
AT 182,14 
AT 194,14: 

3: IF U* = 
1 THEN 460 
AT 182,14 
AT 194,14: 



10 
10 
10 



THEN 
THEN 
THEN 



N4 = 
N5 = 
N6 = 



"N" THEN XY 



1 
1 
1 

= 0 



INT (N / 100) :N2 = 
100 + N2 * 10) ) :N4 = 



DRAW 37 AT 170,14 



INT ( (N - 
Nl + 1;N5 = 



DRAW NC AT 206,14:V* = U* : NA = N4:NB 
"N" THEN XY = 0: DRAW 37 AT 170,14 

DRAW NC AT 206, 14 



N5:NC = N 



DIRECTION 
(2) 

= II THEN BB 



32:HH 



44: GOTO 550 



23 



I 
I 
i 
I 
I 
I 
I 
1 
f 
f 
I 
f 
I 
I 
I 
I 
I 
I 

ERIC 



513 
515 
520 
525 
530 
535 
540 
545 
550 
555 
560 
565 
570 
600 
604 
608 
612 
616 
620 
624 
628 



IF CB > II AND CB < =12 THEN BB = 32:HH = 43: GOTO 550 
IF CB > 12 AND CB < =13 THEN BB = 0 : HH = 45: GOTO 550 
IF CB > 13 AND CB < =14 THEN BB = 48:HH = 43: GOTO 550 
IF CB > 14 AND CB < =15 THEN BB = 0 : HH = 44: GOTO 550 
IF CB > 15 AND CB < =16 THEN BB = 0:HH = 43: GOTO 550 
IF CB > 16 AND CB < =17 THEN BB = 32 : HH = 45: GOTO 550 
IF CB > 17 AND CB < =18 THEN BB = 16:HH = 43: GOTO 550 
IF CB > 18 THEN BB = 32 : HH = 44: GOTO 550 
IF GG = 0 THEN 560 
ROT= HI: HCOLOR= 
ROT= BB: HCOLOR= 
RETURN 

REM 

REM DETERMINE PRESSURE 
POKE 32771,2: REM READS PB2 

GOSUB 16000 

REM VOLTAGE = FREQUENCY/1000 



DRAW GG AT 50 , 142 

DRAW HH AT 50,142:GG = HH : H I 



BB: ROT= 0 



,524: REM 



632 
636 
640 
644 
648 
652 

656 

660 
664 
668 

672 
676 
680 
700 
705 
710 
715 
720 
725 
730 
735 
740 
745 

7 50 
755 
760 
765 
770 
775 

780 
785 
800 



V = F / 1000: 
T = T + .60 
IN = 25 + V / 
IN = IN * RTIO: REM 
P = IN # 100:P1 = INT (P / 
P3 = INT ( (P - (PI # 1000 
000 + P2 * 100 + P3 * 
P5 = PI + 1 :P6 = P2 + 
IF P5 < 1 



INCH OF HG. 
CORRECTION FACTOR 



1000) 
P2 * 

10) ) 

1:P7 = P3 



iP2 = INT ((P - PI # 1000) / 100): 
100)) / 10):P4 = INT (P - (PI * 1 



OR P5 > 10 THEN P5 

IF P6 < 1 OR P6 > 10 THEN P6 

IF P7 < 1 OR P7 > 10 THEN P7 

IF P8 < 1 OR P8 > 10 THEN P8 



^- 1 :P8 = P4 + 1 
1 
1 
1 
1 



HCOL0R= 0: DRAW PA AT 176,86: 



0 THEN R7 = H7: GOSUB 5000: GOSUB 170 



(251 ) 



.5) 



DRAW PB AT 188,86: DRAW PC AT 212,86: 
DRAW PD AT 224,86:PA = P5:PB = P6:PC = P7:PD = P8 

HCOLOR= 3: DRAW PA AT 176,86: DRAW PB AT 188,86: DRAW PC AT 212,86: 

DRAW PD AT 224,86 
H7$ = MID$ (TM$, 13,2) :H7 = VAL ( H7$ ) 

IF R7 = H7 THEN 676 

IF H7 = 20 OR H7 = 40 OR H7 = 
05 

QR = 1: REM SEE LINE 905 
RETURN 

REM 

REM HUMIDITY 
CALL 33536: REM READS PBl 
C = PEEK (250) + 256 # PEEK 
F = INT (C / .501563 

IF F = O THEN 750 
CA = 1 .443 / (2. 1E6 # 
CQ = 125 
IF CA / CQ < .986 THEN PRINT 
REM CONTINUE FROM ERROR 
H = 2.7183 ^ (( LOG (CA / CQ - 
(H) 

HI = INT (H / 10):H2 = INT (H 
IF ,H3 > 10 OR H3 < 1 THEN H3 = 1 
IF H4 > 10 OR H4 < 1 THEN H4 = 1 
IP H > 99 THEN HCOLOR= 3: DRAW 2 AT 40,38 
IF H < 100 THEN HCOLOR= 0: DRAW 2 AT 40,38 

HCOLOR= 0: DRAW HA AT 52,38: DRAW HB AT 64, 38: HA = H3:HB = H4 : HCOLOR= 
3: DRAW HA AT 52,38: DRAW HB AT 64,38 
RETURN 

REM 

REM WIND SPEED 



F) # 1E12 



•OUT OF RANGE": GOTO 740 



.985) + 1.079) / 1.4) * 100:H = INT 



HI * 10) :H3 



HI 



1:H4 = H2 



30 



805 POKE 32771,0: REM READS PBO 
810 VW = 0 

815 FOR WW = 1 TO 5: GOSUB 16000:VW = VW V : NEXT WWrV = VW / 5 

820 WS = (320 * V) + 1-01 

825 IF WS < 1-793 THEN WS = 0 

8''>0 WS = INT (WS + -5) 

835 Wl = INT (WS / 10):W2 = INT ( WS - Wl * 10):W3 = Wl + i j W4 = W2 + 1 



840 
845 
850 
852 
855 
860 
900 
905 

910 
915 
920 
925 



IF W3 > 10 OR W3 < 1 THEN W: 
IF W4 > 10 OR W4 < 1 THEN W4 = 1 



DRAW WA AT 38,86: 
DRAW WB AT 50,86; 



HCOLOR= 0 
HCOLOR= 3 
RETURN 

REM 

REM HIGH AND LOW TEMP 
IF QR = 0 THEN RETURN 
ROBE 

G7 THEN G7 
G8 THEN G8 
0 THEN UU$ = "N" 
0 THEN UU* = "Y" 
.5sK = ABS 



DRAW WB AT 50,86:WA = W3:WB = W4 
IF WA > 1 THEN DRAW WA AT 38,86 



IF PS 
IF PS 
IF G7 
IF G7 



930 K = G7 



REM ALLOWS FOR SETTLING OF OUTSIDE TEMP P 

PS:T1$ = TM* 
PS:T2* = TM$ 



( INT (K)):K1 



935 
940 
945 
950 
955 
960 
965 

970 
975 
980 
985 
990 
995 
1000 



Kl * 100) / 10):K3 = INT (K 
K2 + 1:K6 = K3 + 1 
IF K4 < 1 OR K4 > 
1 OR K5 > 
1 OR K6 > 



(Kl * 



IF K5 < 
IF K6 < 
HCGLGR= 
IF KA = 



10 THEN K4 = 1 
10 THEN K5 = 1 
10 THEN K6 = 1 
0: IF VV$ = "N" THEN XY = 
1 THEN 965 



INT (K / 100) :K2 = 
100 + K2 * 10) ) :K4 



DRAW 37 AT 150,38 



INT ( (K - 
Kl + 1:K5 



DRAW KA AT 150, 38 

DRAW KB AT 160,38: DRAW KC AT 170,38:VV$ = UU*:KA = K4:KB = K5:KC = 



K6 

HCGLGR= 3: IF UU* 
IF KA = 1 THEN 985 
DRAW KA AT 150,38 
DRAW KB AT 160,38: 
IF G8 < 0 THEN SS$ = 
IF G8 > 0 THEN SS$ = 
L = G8 + .5:L = ABS 
/ 10) :L3 = 



"N" THEN XY = 0: DRAW 37 AT 150,38 



1005 
1010 
1015 
1020 
1025 
1030 
1035 



LI * 100) 
L2 + 1:L6 
IF L4 < 
IF L5 < 
IF L6 < 
HCOLOR= 
IF LA = 



DRAW KC AT 170,38 
= "N" 

( INT (L ) ) :L1 = 
INT (L " (LI * 



L3 + 1 
GR L4 > 
GR L5 > 
GR L6 > 
\ IF TT$ 



10 THEN L4 = 1 

10 THEN L5 = 1 

10 THEN L6 = 1 

= "N" THEN XY = 



INT (L / 100) :L2 = INT ( (L - 
100 + L2 * 10)):L4 = Li + 1:L5 



DRAW 37 AT 150,62 



THEN 1035 



DRAW LA AT 150,62 
DRAW LB AT 160,62; 



SS$:LA 



L6 



DRAW LC AT 170,62:TT* 

THEN XY = 0: DRAW 37 AT 160,62 



L4 :LB 



L5:LC 



1040 HCaLGR= 3: IF UU$ = "N' 
1045 IF LA = 1 THEN 1055 
1050 DRAW LA AT 150,62 

1055 DRAW LB AT 160,62: DRAW LC AT 170,62 

1060 D3* = MID* (Tl$, 13,1) :D4$ = MID* ( Tl* , 14 , 1 ) : Dl* = MID* (Tl$,10,l 
):D2$ = MID* (Tl*,ll,l) :D5* = Dl* + D2* D3$ + D4$:D5 = VAL (D5*) 
: IF D5 > 1170 THEN D9 = 26:D5 = D5 - 1200: GGTG 1075 

1070 D9 = 11 

1075 IF D5 < 100 THEN D5 = 05 + 1200 

lOaO Dl = INT (D5 / 1000) :D2 = INT ( ( D5 - Dl * 1000) / 100) :D3 = INT 
((D5 - (Dl * 1000 + D2 * 100)) / 10):D4 = INT (D5 - (Dl * 1000 + D2 



31 



♦ 100 + D3 * 10) ) 

1085 Dl = Dl + i:D2 = D2 + 1:D3 = D3 + i:D4 = D4 + 1 : IF BQ = 0 THEN GOTO 
1093 

1090 HCOLOR= 0: DRAW 2 AT 208,38: DRAW A2 AT 218,38: DRAW A3 AT 234,38: 

DRAW A4 AT 244,38: DRAW A9 AT 254,38 
1093 Al = D1:A2 = D2:A3 = D3:A4 = D4:A9 = D9:BQ = 1 
1095 IF Al > 1 THEN HCOLOR= 3: DRAW Al AT 208,38 

1100 HCOLOR= 3: DRAW A2 AT 218,38: DRAW A3 AT 234,38: DRAW A4 AT 244,38 

: DRAW A9 AT 254,38 
2060 E3$ = f1ID$ ( T2^, 13, 1 ) :E4$ = MID$ ( T2$ , 14 , 1 ) : El^ = MID* (T2$,10,l 
):E2$ = MID^ (T2$,ll,l) :E5^ = Ei<^ + E2^ + E3^ + E4$:E5 = VAL (E5$) 
: IF E5 > 1170 THEN E9 = 26:E5 = E5 ~ 1200: GOTO 2075 
2070 E9 = 11 

2075 IF E5 < 100 THEN E5 = E5 + 1200 

2080 El = INT (E5 / 1000) :E2 = INT ((E5 - El * 1000) / 100) :E3 = INT 
((E5 - (El * 1000 + E2 * 100)) / 10):E4 = INT (E5 - (El * 1000 + E2 

* 100 + E3 * 10) ) 

2085 El = El + 1:E2 = E2 + 1:E3 = E3 + 1:E4 = E4 + 1: IF BR = 0 THEN GOTO 
2093 

2090 HCGLOR= 0: DRAW 2 AT 208,62: DRAW B2 AT 218,62: DRAW B3 AT 234,62: 

DRAW B4 AT 244,62: DRAW B9 AT 254,62 
2093 81 = E1:B2 = E2:B3 = E3:B4 = E4:B9 = E9:BR = 1 
2095 IF 81 > 1 THEN HCOLOR= 3: DRAW Bl AT 208,62 

2100 HCOLOR= 3: DRAW B2 AT 218,62: DRAW B3 AT 234,62: DRAW B4 AT 244,62 

: DRAW B9 AT 254,62 
2300 RETURN 
3000 REM RAINFALL 

3005 J9 = R * 10:J1 = INT (J9 / 10):J2 = INT (J9 - Jl * 10):J3 = Jl + 

1:J4 = J2 + 1 
3010 IF J3 > 10 OR J3 < 1 THEN J3 = 1 
3020 IF J4 > 10 OR J4 < 1 THEN J4 = 1 

3030 HCOLOR= 0: DRAW JA AT 4,62: DRAW JB AT 16,62:JA = J3:JB = J4: HCOLOR= 

3: DRAW JA AT 4,62: DRAW JB AT 16,62 
3100 V9 = MO * 10:V1 = INT ( V9 / 100) :V2 = INT ( ( V9 - VI * 100) / 10): 
V3 = INT (V9 - VI * 100 - V2 # 10):V4 = VI + 1:V5 = V2 + l:V6 = V3 + 
1 

3110 IF V4 > 10 OR V4 < 1 THEN V4 = 1 
3120 IF V5 > 10 OR V5 < 1 THEN V5 = 1 
3130 IF V6 > 10 OR V6 < 1 THEN V6 = 1 

3140 HCOLOR= 0: DRAW VA AT 74,62: DRAW VB AT 82,62: DRAW VC AT 94,62:VA 

= V4:VB = V5:VC = V6 
3150 IF VA < 2 THEN GOTO 3160: HCOLOR= 3: DRAW VA AT 74,62 
3160 HCGLGR= 3: DRAW VB AT 82,62: DRAW VC AT 94,62 
3170 RETURN 

4999 REM CHECK RAINFALL 

5000 OL = PDL (3): IF OL > 127 THEN JM = 0: RETURN 
5020 IF OL < 128 AND JM = 1 THEN RETURN 

5030 IF GL < 128 THEN R = R + . 1 : MG = MO + .1:JM = 1: RETURN 
5040 RETURN 

16000 REM READ THE SENSOR 
16005- "CALL 32768: REM READ COUNTS 
16010 C = PEEK (6) + 256 * PEEK (7) 

16015 F = C / .409148: REM FREQUENCY = COUNTS PER TIME INTERVAL (T 

HE COUNT TIMe IS .499542 SECONDS) 
16020 V = F / 1000: REM VOLTAGE = FREQUENCY/ 1000 

16025 RETURN 

16030 REM 

17000 REM DRAW THE PRESSURE GRAPH 

17005 Q4 = Q4 + 1: IF Q4 > 72 THEN Q4 = 72:SS = 1 

17010 HCGLGR= 0: FOR Z = 1 TG Q4 : Ul = 122 + 2 * Z : IF P(Z) = 0 THEN 170 
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20 
17015 
17020 
17025 
17030 
17035 
17040 

( X 
17045 
17050 
17055 
17060 
18000 
18005 
18010 
18015 
18020 
18025 



HPLOT U1,P( Z) 
NEXT Z 
HCOLOR= 
IF Yl > 
IF Yl < 
IF SS = 
- 1) = P(X) 
P(Q4) = ((32 



3:Yi = IN 
32 THEN Yl = 
28 THEN Yl = 
1 THEN P(73) 
NEXT X: 
Yl ) / 



1 TO Q4;U 



37 
2L 

= ( (32 - Yl) 
GOTO 17050 
.05) + 104 
122 + 2 * Z: 



/ .05) 



104 ; 



■OR X 



2 TO v: 



HPLOT U,P( Z) : NEXT Z 



FOR Z 
RETURN 

REM 

REM DATAFILE 
PRINT 0P$; Z*; " ,L48" 
PRINT RD^; Z*; " ,R" ; 1 

INPUT OT*, IT*,BP*,HM*,WS$,DT$,RA$,RM$ 
TT = VAL (0T$): IF TT = 0 THEN TT = 2 
Gl = INT (PS .5):G2 = INT (PR + ,5) 
(WS + .5) 

18030 0T$ = STR$ (G1):IT$ = STR$ (G2):BP = IN * 100:BP = INT (BP) 
= STR$ (BP):HM* = STR* (G4):WS* = STR% (G5):DT$ = TM$:RA$ = 
(R) :RM$ = STR* (MO) 
18035 PRINT WR$; Z$; " ,R" ;TT 

18040 PRINT DT%i PRINT lT%i PRINT BP*: PRINT HM* : PRINT WS*: PRINT DT* 

PRINT RA*: PRINT RM* : PRINT D* 
18045 TT = TT + 1:0T* = STR* (TT) 
18050 PRINT WR*;Z*; ",R" ;1 

18055 PRINT OT*: PRINT IT*: PRINT BP*: PRINT HM* : PRINT WS*: PRINT DT* 
PRINT RA*: PRINT RM* : PRINT D* 



iG4 = INT (H + . 5) :G5 = INT 



BP* 
STR* 



18060 
18063 
18065 
18070 
18075 
18080 
18085 
18090 
18095 
18100 
18110 
18115 
18120 
18125 
18130 
18135 
18140 
18145 
18150 
18155 
18160 
18165 
18170 
18175 
18180 
18183 
18185 
18190 
20000 



PRINT 

GOSUB 

REM 

REM 

PRINT 

PRINT 

INPUT 

QB = 
PRINT 
INPUT 

AC* = 
IF AC 

TH$ = 
PRINT 
PRINT 
PRINT 
INPUT 

HT = 

E7 = 

E8 = 



CL*;Z* 

5000 



HIGHLOW .DAILY 
OP*; "HIGHL0W.DAILY,L4 5" 
RD*; "HIGHLOW, DAILY, R" ;45 
HT*: INPUT TH*: INPUT LT* : INPUT 
VAL (TH*): IF QB = 0 THEN QB = 1 
RD*; "HIGHLOW. DA I LY,R" ;QB 
HT*: INPUT TH*: INPUT LT*: INPUT 
MID* (TH*,4,2):AC = VAL (AC*) 
< > KY THEN QB = QB 1 
STR* (QB) 



TL* 



TL* 



WR* 
HT* 
RD* 
HT* 

VAL (HT*) 
INT (G7 + 
INT (G8 + 



"HIGHLOW. DAILY, R" ;45 

PRINT TH*: PRINT LT*: 
"HIGHLOW,DAILY,R" ;QB 
INPUT TH*: INPUT LT*: 



PRINT TL*: PRINT D* 



INPUT TL* 



LT = 
.5) 
.5) 



VAL (LT*) 



IF E7 
IF E8 
PRINT 
PRINT 
PRINT 
GOSUB 
RETURN 

REM 

REM CHECK 



> HT THEN HT* = STR* ( E7 ) 
< LT THEN LT* = STR* ( E8 ) 
WR* ; " H I GHLOW . DA I L Y , R " ; QB 
HT*: PRINT TH*: PRINT LT*: 
CL*; "HIGHLOW. DAILY" 
5000 



TH* 
TL* 



Tl* 
T2* 



PRINT TL*: PRINT D* 



FOR PREVIOUS PRESSURE AND RAINFALL DUE TO POWER LOSS 



20005 REM 
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20010 PRINT OP^; Z$; " ,L4e" 

20015 PRINT RD* ; Z$; " ,R" ; 1 

20020 INPUT OT^, IT$,BP$ ,HM$,WS$,DT$,RA,RM$ 

20025 TS = VAL (0T$) - 1: IF TS < 24 THEN RETURN 

20030 FOR IJ = 0 TO 23 

20035 PRINT RD* ; Z$ ; " , R " ; TS - IJ 

20040 INPUT OT*, IT$,BP«,HM*,WS$,DT$,RA$,RM$ 

20045 X = 24 - IJ:MT$(X) = BP$ : NEXT IJ 

20050 PRINT CL$;Z$ 

20055 FOR X = 1 TO 24:MT(X) = VAL ( MT$ ( X ) ) : MT ( X ) = MT(X) / 100; NEXT X 

20060 FOR X = 1 TO 24:P(3 # X - 2) = MT(X):P(3 * X - 1) = MT(X);P(3 * X 
) =: MT(X ) : NEXT X 

20065 Q4 = 72: FOR X = 1 TO 72:P(X) = ((32 - P(X)) / .05) + 104; NEXT X 

20066 FOR Z = 1 TO 04:0 = 122 + 2 * Z: HPLOT U,P(Z); NEXT Z 

20067 PRINT OP* ; Z$ ; " , L48" 

20068 PRINT RD* ; Z$ ; " , R" ; 1 

20069 INPUT GT$, IT$,BP$,HM1i,WS$,DT$,RA*,RM$ 

20070 TT = VAL (GT$): IF TT = 0 THEN TT = 3 

20071 PRINT RD*;Z*;" ,R";TT - i 

20072 INPUT GT*, IT$,BP*,HM*,WS*,DT$,RA*,RM* 

20074 Ql* = MID* (DT$,4,2):KY = VAL (Q1*):Q2$ = MID* (TM*,4,2): IF Ql 

* < > Q2* THEN GOTO 20076 

20075 R = VAL ( RA* ) 

20076 Ql* = MID* ( DT* , 2 , 1 ) : Q2* = MID* ( TM* , 2 , 1 ) : T8 = VAL (02*): IF Ql 

* < > Q2* THEN GOTO 20078 

20077 MO = VAL ( RM* ) 

20078 PRINT CL*;Z* 

20079 RETURN 

20080 REM 

21000 REM CHECK FOR PREVIOUS HIGHLGW IF POWER FAILURE 

21005 PRINT OP*; "HIGHLOW. DAILY, L45" 

21010 PRINT RD*;"HIGHLOW. DAILY, R";45 

21015 INPUT HT*: INPUT TH* : INPUT LT*i INPUT TL* 

21020 QB = VAL ( TH* ) : IF QB = 0 THEN QB = 1 

21025 PRINT RD*; "HIGHLOW. DAILY, R" ;aB 

21030 INPUT HT*: INPUT TH* : INPUT LT*: INPUT TL* 

21035 PRINT CL*; "HIGHLOW-DAILY" 

21040 AB* = MID* (TM*,4,2):AB = VAL ( AB* ) 

21045 AC* = MID* (TH*,4,2):AC = VAL (AC*) 

21050 IF AC < > AB THEN RETURN 

21055 G7 = VAL (HT*):T1* = TH* 

21060 G8 = VAL (LT*):T2* = TL* 

21065 RETURN 

50000 REM 

50010 REM VALUES FOR SHAPE TABLES 

50011 REM INSIDE 

500 1 5 DATA 19 , 34 , 2 , 24 , 46 , 2 , 29 , 58 , 2 , 19 , 70 , 2 , 1 4 , 82 , 2 , 1 5 , 94 , 2 , 16 , 76 , 14 
50020 REM OUTSIDE 

50025 DATA 25, 170,2,31 , 182 , 2 , 30 , 194 , 2 , 29 , 206 , 2 , 1 9 , 2 18 , 2 , 14 , 230 , 2 , 1 5 , 2 

42,2,16,218,14 
50030 REM HUMIDITY 

50035 DATA 1 8 , 22 , 26 , 3 1 , 34 , 26 , 23 , 46 , 26 , 19 , 5B , 26 , 1 4 , 70 , 26 , 19 , 82 , 26 , 30 , 9 

4,26, 35, 106,26,41 ,76,33 
50040 REM BAROMETER 

50045 DATA 12 , 1 58 , 74 , 1 1 , 170 , 74 , 28 , 182,74,25,194,74,23,206,74,15,218, 

74,30,230,74, 15,242,74,28,254,74,46,200,86,40,236,86 
50050 REM PRECIPITATION 

50055 DATA 26 , 6 , 50 , 28 , 16 , 50 , 1 5 , 26 , 50 , 1 3 , 36 , 50 , 19 , 46 , 50 , 26 , 56 , 50 , 19 , 66 , 
50 , 30 , 76 , 50 , 1 1 , 86 , 50 . 30 , 96 , 50 , 19 , 106 , 50 , 25 , 1 16 , 50 , 24 , 126 , 50 
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50056 DATA 46 , 10 , 62 , 40 , 24 , 62 , 1 4 , 34 , 62 , 1 1 , 42 , 62 , 35 , 50 , 62 

50057 DATA 46 , 1 34 , 62 , 24 , 128 , 62 , 25 , 1 20 , 62 , 23 , 1 12 , 62 , 40 , 102 , 62 , 46 , 88 , 62 

50059 REM HIGH TEMP 

50060 DATA 18 , 166 , 26 , 19 , 1 76 , 26 , 1 7 , 186 , 26 , 18 , 196 , 26 , 30 r :i6,26, 15,226,2 
6 , 23 , 236 , 26 , 26 , 246 , 26 

50061 DATA 16 , 180 , 38 , 23 , 264 , 38 , 46 , 226 ,38,46, 226 , 32 

50062 REM LOW TEMP 

50063 DATA 22, 1 72 , 50 , 25 , 182 , 50 , 33 , 192 , 50 , 30 , 212 , 50 , 15,222,50,23,232,50 
,26,242,50 

50064 DATA 16 , 180 , 62 , 23 , 264 , 62 , 46 , 226 , 62 , 46 , 226 , 56 

50065 REM WIND SPEED 

50070 DATA 33 , 14 , 74 , 19 , 26 , 74 , 24 , 38 , 74 , 1 4 , 50 , 74 , 29 , 74 , 74 , 26 , 86 , 74 , 1 5 , 

98, 74, 15, 110, 74, 14 , 122 , 74 , 23 , 74 , 86 , 26 , 86 , 86 , 18 , 98 , 86 
50075 REM N,S,E,W 

50080 DATA 24 , 47 , 106 , 29 , 47 , 1 70 , 1 5 , 80 , 1 38 , 33 , 12 , 1 38 

50085 REM PRESSURE GRAPH 

50090 DATA 4, 102, 100, 3, 102, 180, 3»110, 100, 9, 110, 180, 4, 102, 140, 1 , 110 , 1 

40 

50095 DATA 12 , 134 , 98 , 1 1 , 142 , 98 , 28 , 150 , 98 , 25 , 1 58 , 98 , 23 , 166,98, 15, 174 , 

98, 30, 182,98, 15, 190 , 78 , 28 , 198 , 98 , 38 , 2 14 , 98 , 3 , 222 , 98 , 5 , 230 , 98 , 18 , 246 , 
98,28, 2 54,98,29,262,98,39,270,98 
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LIST 

10 REM GREATER 

15 REM MARK V. LORSON 

20 REM 3/4/93 

50 HOME : PRINT "PLEASE INSERT THE ";: INVERSE : PRINT "MOUSETRAP 

: PRINT " DISK." 
52 PRINT : PRINT "HIT ANY KEY WHEN READY. 
55 GET A* 
100 D* = CHR* (4) 
150 PRINT "WORKING" 
200 PRINT D*;"3L0AD FREQ,A$8300" 
220 PRINT D*;"BLOAD V I U . READ , A*8000 " 
240 PRINT D$;"BLOAD PDL . CHECK , A*8060" 

250 HOME : PRINT "PLEASE INSERT THE ";: INVERSE : PRINT "WEATHER" 



• 


PRINT 


" DISK." 


260 


PRINT 


: PRINT "HIT ANY KEY WHEN READY. 


270 


GET A* 




280 


PRINT 


"WORKING" 


300 


POKE 33565,98 


400 


POKE 3 


3575,98 


500 


POKE 33632,98 


600 


POKE 33649,98 


700 


POKE 33757,98 


600 


POKE 3 


3770,98 


900 


PRINT 


D*; "BSAVE FREQ.PBl , A*8300 , ^^300" 


1200 


POKE 


32770, 128 


1 300 


POKE 


32774, 128 


1 400 


POKE 


32780, 128 


1 500 


POKE 


32783, 128 


1600 


POKE 


32786, 128 


i 700 


POKE 


32800, 128 


1800 


POKE 


32825, 128 


1900 


POKE 


32828, 128 


2000 


POKE 


32844, 128 


2100 


POKE 


32850, 128 


2200 


POKE 


32856, 128 


2300 


POKE 


32860, 128 




PRINT D*;"BSAVE V IU8000 . READ , A*8000 , L 


2700 


POKE 


32883, 148 




POKE 


32884 , 128 


2900 


POKE 


32888, 103 


3000 


POKE 


32889, 128 


3100 


POKE 


32909, 148 


3200 


POKE 


32910, 128 


3300 


POKE 


32914, 129 


3400 


POKE 


32915, 128 


3500 


POKE 


32918, 128 


3600 


POKE 


32921 , 128 


3700 


POKE 


32923, 180 


3800 


POKE 


32924 , 128 


3900 


* POKE 


32927, 128 


4000 


POKE 


32930, 128 


4100 


POKE 


32941 , 180 


4200 


POKE 


32942 , 128 


4300 


POKE 


32946, 163 


4400 


POKE 


32947 , 128 


4500 


PRIN 


T D*;"BSAVE PDL8060 . CHECK , A*8060 



] 
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10 REM CREATE MONTHLYDATA 

15 REM MARK V. LORSON 

18 REM 3/4/93 

20 PRINT "NOMONI ,0,C" : HOME 

40 TEXT lD% = CHR$ (4) 

60 OP* + "OPEN" 

70 CL* = + "CLOSE" 

80 RD^ = D% + "READ" 

90 WR< =^ D* + "WRITE" 

95 Z% = "MONTHLYDATA" 

98 PRINT 1% 

100 PRINT OP*;Z*;" ,L48" 

105 FOR I = 1 TO 1100 

110 PRINT I 

115 OT* = " ":IT* = " ":BP$ == " "iHM* ^ " ":WS* = " " : DT^ = " "cRA't = " 

" :RM* = " " 
120 PRINT \AR%; 1% ; " ,R" ; I 

125 PRINT OT*: PRINT IJ%\ PRINT BP$: PRINT HM$ : PRINT WI$: PRINT DT$: PRINT 

RA*: PRINT RM*: PRINT D* 
140 NEXT I 
145 PRINT CL*; 1% 
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LIST 

10 REM CREATE HIGHLOW . DA ILY 

12 REM MARK V. LORSON 

14 REM 3/4/93 

20 PRINT "NOMONI ,0,C" : HOME 

40 TEXT :D* = CHR* (4) 

60 OP* = D$ "OPEN" 

70 CL* = D$ + "CLOSE" 

80 RD* = D« + "READ" 

90 WRS = D* + "WRITE" 

95 Z* = "HIGHLOW. DAILY" 

98 PRINT Z* 

100 PRINT OP*; Z*; " ,L45" 

105 FOR I = 1 TO 44 

110 PRINT I 

115 HT$ = "-100":TH* = " ":LT* = "100" :TL* = " " 
120 PR INT WR*; Z%; " ,R" ; I 

125 PRINT HT*: PRINT TH* : PRINT LT$i PRINT TL*: PRINT D$ 

129 NEXT I 

130 PRINT WR*; Z*; " ,R" ;45 

131 HT$ = "0":TH* = '■0":LT* = "0":TL* = "0" 

135 PRINT HT$: PRINT TH$ : PRINT LT$; PRINT TL*: PRINT 
145 PRINT CL*;Z* 

] 



ERLC 
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]L 1ST 



10 REM READ MONTHLYDATA 

12 REM MARK V. LORSON 

14 REM 3/4/93 

20 PRINT "NOMaNI ,0,C" : h^□ME 

40 TEXT :D<> = CHRIi (4) 

60 OP^ = D* "OPEN" 

70 CL$ 0% ^ "CLOSE" 

QO RD$ = + "READ" 

90 WR* = D* "WRITE" 

95 Z* = "MONTHLYDATA" 

98 PRINT Z$ 

100 PRINT OP*; Z<t; " ,L4B" 

105 FOR I = 1 TO 1100 

lOB PRINT RD*; Z%; " ,R" ; I 

110 INPUT OT*, lT1i,BP1i,HM$,WS1i,DT'^,RA$,RM$ 
130 PRINT I ,0T*, IT*,BPt ,HM^,WS«,DT«,RA*,RM« 

140 NEXT I 

145 PRINT CL*; Z% 



mc 
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]LIST 



5 REM READ H I GHLOW . DA I LY 

6 REM MARK V, LORSON 

7 REM 3/4/93 
10 D* = CHR* ( 4) 

20 PRINT D*;"OPEN HIGHLOW. DAILY, L45" 
25 FOR X = i TO 45 

30 PRINT Dt;"READ H I GHLOW . DA I LY , R" ; X 

40 INPUT HT$: INPUT TH$: INPUT LT$: INPUT TL$ 

50 PRINT X,HT*,TH$,LT$,TL^ 

60 NEXT X 

70 PRINT D*; "CLOSE H I GHLOW . DAI LY " 
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ILIST 

2 ONERR GOTO 27 00 
5 DIM Z$(15) 
8 Q = 1 

1000 REM READER 
1100 REM MARK V. LORSON 
1200 REM 5/30/93 
1300 PRINT "NOMONI ,0,C" : HOME ■ 
1400 TEXT :D$ = CHR$ (4) 
1500 0P$ = D$ + "OPEN" 
1600 CL$ = D$ + "CLOSE" 
1700 RD$ = D$ + "READ" 
1800 WR$ = D$ + "WRITE" 

1820 C$(l) = "OUT TEMP" 

1821 C$(2) = "IN TEMP " 
lft22 C$(3) = "PRESSURE" 

1823 C$(4) = "HUMIDITY" 

1824 C$(5) = "WIND SPD" 

1825 C$(6) = "DAILY RN" 

1826 C$(7) = "MONTH RN" 

1827 C$(8) = " " 

1890 Z$ = "/WD/MONTHLYDATA/MONTHLYDATA 

1891 HI = 45:H2 = 45:H3 = 45:H4 = 45 

1896 Z$(l) = Z$ + ".JAN":Z$(2) = Z$ + ".FEB":Z$(3) = Z$ + ".MAR":Z$(4) = 
Z$ + ".APR":Z$(5) = Z$ + ".MAY":Z$(6) = Z$ + ".JUN" 

1897 Z$(7) = Z$ + ".JUL":Z$(8) = Z$ + ".AUG":Z$(9) = Z$ + " . SEP" : Z$ ( 10 ) = 
Z$ + ".0CT":Z$(11) = Z$ + " .NOV" :Z$(12) = Z$ + ".DEC" 

1901 HOME : PRINT "WHICH MONTH DO WANT DATA FOR?": PRINT : PRINT "1-JAN 
2-FEB 3-MAR 4-APR 

1902 PRINT : PRINT "5-MAY 6-JUN 7-JUL 8-AUG 

1903 PRINT : PRINT "9-SEP 10-OCT 11-NOV 12-DEC 

1904 VTAB (10): INPUT N 

1905 IF N < 1 OR N > 12 THEN VTAB (10): PRINT " ": GOTO 1904 
1909 Z$ = Z$(N) 

1920 HOME : PRINT "WHICH DATA DO YOU WISH TO SEE?": PRINT : PRINT "YOU 
MAY CHOOSE TWO WHEN PROMPTED." 

1921 PRINT : PRINT : PRINT : PRINT "1-OUTSIDE TEMP 2-INSIDE TEM 
P 

1922 PRINT : PRINT "3-BAROMETRIC PRESSURE 4-HUMIDITY 

1923 PRINT : PRINT "5-WIND SPEED 6-DAILY RAINFALL 

1924 PRINT : PRINT "7-MONTHLY RAINFALL 8-NO CHOICE 

1930 VTAB (17): INPUT "1ST DATA ";Vl: PRINT : INPUT "2ND DATA ";V2 

1931 IF VI < 1 OR VI > 7 THEN VTAB (17): PRINT " ": GOTO 1920 

1932 IF V2 < 1 OR V2 > 8 THEN VTAB (19): PRINT " ": GOTO 1920 

1940 HOME : PRINT "HOW OFTEN DO YOU WANT READINGS?": PRINT : PRINT : PRINT 
"1--EVERY 24 HOURS 2— EVERY 12 HOURS": PRINT : PRINT "3— EVERY 6 H 
OURS 4 — EVERY HOUR": PRINT : PRINT : PRINT 

1941 INPUT J:IFJ<10RJ>4 THEN 1941 

1942 IF J = 4 THEN HOME : GOTO 1980 

19 45 PRINT : PRINT : PRINT "WHAT HOUR OF THE DAY WOULD YOU": PRINT "LIK 
E TO BEGIN? (0-23) ": PRINT : INPUT H : IF H < 0 OR H > 23 THEN 1942 
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1960 IF J = 1 THEN Hi = H: GOTO ISSO 

1965 IF J = 2 THEN Hi = H:H2 = H + 12: IF H2 > 23 THEN H2 = H2 - 24: GOTO 
1980 



1966 
1967 
1968 



IF J = 3 THEN HI = H:H2 = H + 6: IF H2 > 23 THEN H2 = H2 - 24 

IF J = 3 THEN H3 = H + 12: IF H3 > 23 THEN H3 = H3 - 24 

IF J = 3 THEN H4 = H + 18: IF H4 > 24 THEN H4 = H4 - 24: GOTO 1980 



1980 HOME 

1981 INPUT "DO YOU WANT A PRINTOUT (Y/N)? ";K3$ 

1982 IF K3$ = "Y" OR K3$ = "y" THEN PRINT D$;"PR#1" 
19 8 3 HOME 

2000 PRINT Z$ 

2050 PRINT " DATE TIME" ,C$ ( VI ) ; " ";C$(V2) 

2100 PRINT OP$;Z$;%ri48" 

2200 FOR I = 1 TO 1100 
2300 PRINT RD$;Z$;",R";I 

2350 Q = 0 

2400 INPUT OT$,IT$,BP$,HM$,WS$,DT$,RA$,RM$ 

2401 BP = VAL (BP$):BP = BP / 100:BP$ = STR$ (BP) 

2402 DT$ = LEFT$ (DT$,14) 

2403 IF J = 4 THEN GOTO 2425 

2410 K = VAL ( MID$ (DT$,10,2)): IF K = HI OR K = H2 OR K = H3 OR K = H 
4 THEN 242 5 

2411 GOTO 2600 

2425 B$(l) = 0T$ + "F":B$(2) = IT$ + "F":B$(3) = BP$ + ':B$(4) = HM$ + 
"%":B$(5) = WS$ + "MPH":B$(6) = RA$ + :B$(7) = RM$ + 

2426 B$(8) = " " 



2500 


PRINT 


DT$,B$(V1),B$(V2) 


2600 


NEXT I 




2650 


PRINT 


CL$;Z$ 


2655 


PRINT 


D$;"PR#0" 


2660 


END 




2700 


PRINT 


CL$; Z$ 


2701 


PRINT 


D$;"PR»0" 


2703 


PRINT 


: PRINT : PRINT : PRINT 


2704 


IF Q = 


= 0 THEN GOTO 2800 


2705 


PRINT 


"THAT MONTH IS NOT AVAILABLE. 


2755 


PRINT 


D$;"PR#0" 


2800 


END 
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The author can be contacted and a disk of all the 
author written programs can be obtained by sending a 
blank disk and prepaid disk mailing envelope to: 

Mark V. Lor son 
Jonathan Alder High School 
6440 Kilbury-Huber Road 
Plain City, OH 43026 
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